home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / r / real_3d / real3dv3.3b.dms / real3dv3.3b.adf / GUI.LZH / GUI / select.gui < prev    next >
Text File  |  1995-07-08  |  1KB  |  74 lines
  1.  
  2. (
  3. ( Select objects matching the given wildcard
  4. (
  5.  
  6. ?& SELECT_GUI NOT ?IF
  7. 1 CONSTANT SELECT_GUI
  8.  
  9. "ui.rpl" LOAD
  10. "locks.rpl" LOAD
  11.  
  12. ( Variables
  13.  
  14. VARIABLE exaWindow
  15. VARIABLE exaSelect
  16. VARIABLE exaClose
  17. VARIABLE exaString
  18.  
  19.     
  20. ( Callbacks for Gadgets
  21.  
  22. : excbLoad
  23.     100 STRING sWildCard
  24.     
  25.     UI_Done sWildCard  UIST_String  exaString FETCH UI_GETATTRS
  26.  
  27.     iLOCK_EXCL O_LOCK
  28.  
  29.     sWildCard O_FINDWILD
  30.     O_SELECT
  31.     iLOCK_REMOVE O_LOCK
  32.  
  33.     REFRESH    
  34. ;
  35.  
  36. : excbCancel
  37.     exaWindow FETCH UI_DELETE
  38.     FALSE exaWindow STORE
  39. ;
  40.  
  41.  
  42. ?ENDIF ( EXAMPLE_GUI
  43.  
  44. (
  45. ( Create display elements
  46. (
  47.  
  48. exaWindow FETCH 
  49. ?IF
  50.     "Understood" "Window already opened" GET_KEY DROP
  51. ?ELSE
  52.  
  53.     ( Open a window
  54.  
  55.     UI_Done NULL 30 50 300 60 "Select Objects" UI_WINDOW exaWindow STORE
  56.  
  57.     ( create a string gadget
  58.  
  59.     UI_Done 
  60.     exaWindow FETCH NULL 80 20 200 12 "Wildcard" UI_STRING exaString STORE
  61.  
  62.     ( create button gadgets
  63.  
  64.     UI_Done 
  65.     exaWindow FETCH & excbLoad 20 40 60 12 "Select" UI_BUTTON exaSelect STORE
  66.  
  67.     UI_Done 
  68.     exaWindow FETCH & excbCancel 220 40 60 12 "Close" UI_BUTTON exaClose STORE
  69.     
  70.     ( realize gadgets
  71.     exaWindow FETCH UI_REALIZE
  72.  
  73. ?ENDIF ( exaGuiCreated
  74.